(defun getparcels ()
  (if
    (member 'T(mapcar '(LAMBDA(x)(WCMATCH(CADR(REVERSE(DOS_SPLITPATH x)))(CADR(REVERSE(DOS_SPLITPATH "..\\..\\Parcel_2.dwg")))))(DOS_XREFLIST)))
    nil
    (command ".xref" "O" "..\\..\\Parcel_2.dwg" "0,0,0" 1 1 0)
  )
)